home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Cadenze Tester < prev    next >
Encoding:
Text File  |  1998-10-26  |  1014 b   |  43 lines  |  [TEXT/ScoM]
  1. (def-orchestra 'orchestra
  2.    all-instruments (piano)
  3.    piano (voice1 voice2 voice3 voice4)
  4. )
  5.  
  6. (def-section-timesheet sect-a
  7.    with 1/1
  8.    tonality " ......." (activate-tonality (c min 3 1 3) (f min 1 1 3) (g maj 5 1 3) (c v 1 1 3))
  9.    piano    "--------"
  10.    ;
  11.    ; bass patterns
  12.    ;
  13.    legato 90
  14.    beat 1/2 ;  !---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!
  15.    voice1     "-" '(a) with '(65 55 65 75)
  16.    beat 1/4 ;  !---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!
  17.    voice2     "-" '(b b b -b) with '(65 55 65)
  18.    beat 1/8 ;  !---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!
  19.    voice3     "-" '(c -d c -f) with '(65 55)
  20.    beat 1/16 ;  !---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!---!
  21.    voice4     "-" '(d e g) with '(65)
  22. )
  23.  
  24. (def-section sect-a
  25.    voice1
  26.      channel 1
  27.    voice2
  28.      channel 2
  29.    voice3
  30.      channel 3
  31.    voice4
  32.      channel 4
  33. )
  34.  
  35. (def-tempo 60)
  36.  
  37. (midiport :printer)
  38.  
  39. (play-file-p "chords"
  40.    all-instruments '(sect-a)
  41. )
  42.  
  43.